Top 10k strings from Word Processor (1983)(Quicksilva).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 LAST=INDEXZ
   2 count=count+1
   2 INDEXZ>LAST
   2 A$="          ":
   2 ;"FILE NAME ?";:
   2 ;"ENTER CHOICE FOLLOWED BY ";
   2 ;"DELETE";
   2 ;" TO CONFIRM          ";
   2 ;" FOR NEW CHOICE";
   2 ;"   PRESS ANY KEY TO CONTINUE   "
   2 ;"    PRESS ";
   2 ;"                                ";:
   1 |][}{\~"(i):
   1 z$(indexz+1
   1 z$(indexz)=a$:
   1 z$(indexz)=S$
   1 x,y;z$(indexz);" ":
   1 x,(count+y);
   1 last=last+insert:
   1 indexz=indexz+1
   1 indexz=LAST:
   1 i=indexz-20
   1 count=count-1
   1 count=-count-1
   1 count-(count>0
   1 count)+" "+a$(count+1
   1 a$=z$(indexz)+" ":
   1 a$=z$(indexz)
   1 a$="                                "
   1 a$(count)=b$:
   1 Z$(INDEXZ)=A$:
   1 Z$(I-B+A-1
   1 Z$(I+LAST)=Z$(1000
   1 YES NO=9100
   1 WORD PROC n'
   1 T - MOVE TYPE LINE TO TOP"
   1 MX- MOVE MARKER TO LINE X"
   1 MARKER>INDEXZ
   1 MARKER=A(3
   1 LAST=LAST-B+A
   1 L - LIST TEXT ON SCREEN"
   1 INSERT=LAST-INDEXZ+1
   1 INPUT=9000
   1 INDEXZ=INDEXZ-1
   1 INDEXZ=A(1
   1 INDEXZ=1000
   1 INDEXZ<1000
   1 I=INDEXZ-20
   1 I=(LAST-B+A)
   1 I - OPEN UP TEXT TO INSERT"
   1 GX-MOVE TYPE LINE TO LINE X"
   1 E - RETURN TO MENU"
   1 D - DELETE TEXT BETWEEN MARKER      AND CURRENT LINE"
   1 COUNT=COUNT-1
   1 COUNT=COUNT+1
   1 COUNT=-COUNT-1
   1 C - CLOSE UP TEXT AFTER  INSERT"
   1 B - MOVE TYPE LINE TO BOTTOM"
   1 A$(I)<"0")
   1 ;z$(indexz+1
   1 ;a$(count+1
   1 ;"YOU WANT TO VERIFY ? ";:
   1 ;"YOU SURE YOU WANT TO SAVE ? ";:
   1 ;"YOU SURE YOU WANT TO QUIT ? ";:
   1 ;"YOU SURE YOU WANT TO LOAD ? ";:
   1 ;"YOU SURE YOU WANT TO CLEAR ? ";:
   1 ;"THE WORD PROCESSOR"
   1 ;"SURE YOU WANT TO DELETE ?     ";
   1 ;"Phillip Baker."
   1 ;"PRESS ANY KEY TO START ":
   1 ;"PRESS ANY KEY TO RETURN TO MENU"
   1 ;"PRESS ANY KEY TO ABORT PRINT RUN";:
   1 ;"MARKER = ";MARKER;"      ";
   1 ;"LINE = ";INDEXZ;
   1 ;"EDITOR COMMANDS"
   1 ;"ARRAY FULL"
   1 ;"   PRESS ANY KEY TO CONTIUE    "
   1 ;"     PRESS ANY KEY TO ABORT    ";:
   1 ;"       ILLEAGAL   COMMAND      ";
   1 ;"         YOU CHOSE ";
   1 ;"          INVALID COMMAND     ";
   1 ;"          INSERTING TEXT       "
   1 ;"          DELETEING            ";
   1 ;"          CLOSING TEXT        "
   1 ;"           ":
   1 ;"                               ";
   1 ;"                                                             ";:
   1 -zz)=a$(zz+1
   1 -LAST+I)=Z$(I):
   1 -INSERT+I)="":
   1 -INSERT+I):
   1 *(c$=b$)):
   1 ))+a$(count+1
   1 (INDEXZ<1000
   1 (A$(I)>"9"
   1 "USE { CAPS SHIFT } TOGETER WITH-"
   1 "KEYBOARD INPUT"
   1 "EXTENDED MODE GRAPHIC CHARACTERS"
   1 "COPYING THE SCREEN"
   1 "BOTH SHIFTS TOGETHER PRODUCE 
   1 "9 - LETTER INSERT"
   1 "8 - CURSOR RIGHT"
   1 "7 - TYPE LINE UP"
   1 "6 SAVE TEXT"
   1 "6 - TYPE LINE DOWN"
   1 "5 LOAD TEXT"
   1 "5 - CURSOR LEFT"
   1 "4 PRINT TEXT"
   1 "4 - COPYS THE SCREEN"
   1 "3 EDIT TEXT"
   1 "3 - TURNS CAPS LOCK OFF"
   1 "2 CLEAR MACHINE FOR NEW TEXT"
   1 "2 - TURNS CAPS LOCK ON "
   1 "1 - CLEARS TYPE LINE"
   1 "0 - LETTER DELETE"
   1 "    AS LONG AS A YES OR NO  TYPEOF QUESTION IS NOT  BEING  ASKEDTHE FOLLOWING WILL WORK ."
   1 "     TO  DO  THIS  SIMPLY   TYPE{CAPS SHIFT} 4 .  THIS WILL WORKAT   ANY  TIME  EXEPT  WHEN  THECOMPUTER IS  ASKING  A  QUESTIONTHAT ENDS IN A QUESTION MARK ."
   1 "     SOME  SYMBOLS  ARE  NORMALYOBTAINED USING EXTENDED  (DOUBLESHIFT)  MODE . TO  OBTAIN  THESE";"CHARACTERS {SYMBOL  SHIFT} ALONESHOULD   BE  USED  .  THE   ONLY";"EXCEPTION IS THE  
   1 "       ALL COMMANDS SHOULD BE ATTHE START OF A NEW LINE"
   1  SYMBOL WHOSEKEY IS  ALREADY  OCCUPIED BY THE "" SYMBOL THIS  MAY BE  OBTAINED";"BY {SYMBOL SHIFT} I ."
   1  1982 P.Baker    "